home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / butt01.zip / SET_FOX.PRG < prev    next >
Text File  |  1993-01-04  |  5KB  |  94 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: SET_FOX.PRG
  4. *:
  5. *:         System: MIS Consulting
  6. *:         Author: Charles Alan Butler
  7. *:      Copyright (c) 1989, Charles Alan Butler
  8. *:  Last modified: 05/30/89     10:18
  9. *:
  10. *:      Called by: STARTPRG.PRG                  
  11. *:               : BID.PRG                       
  12. *:
  13. *:      Documented 09/17/89 at 16:36                SNAP!  version 3.12f
  14. *:*********************************************************************
  15. *    set default to DRIVE - should be done by main program in system.
  16. *
  17. *    PROGRAMMER ATTENTION, THESE ARE NOT SET FOR THE FOLLOWING REASONS -
  18. *    set filter to        - don't bother, no databases should be open.
  19. *    set date to          - set by compiler public variables.
  20. *    set order to         - should be done by programmer directly.
  21. *    set path to          - un-predictable results can occur with the use of this command, therefore we don't use it.
  22. *    set relation to      - don't bother, no databases should be open.
  23. *    set margin to        - up to programmer to stay on top of this one.
  24. *    set typeahead to     - don't bother, never changed by anyone.
  25. *
  26. * NOTE - Most of these are redundant, for they are as default is, but you
  27. *        never know!!!
  28. *
  29. ******************************** NOTES ********************************
  30.  
  31. * --- dBASE default SETTINGS
  32. SET STEP Off            && No, don't interact with user after each line of code.  Execute normally.
  33. SET ESCAPE OFF          && Can not interupt the program in progress
  34. SET ECHO OFF            && Do not echo source code lines to screen
  35. SET TALK OFF            && Do not echo file processing status to screen
  36. SET COLOR TO BG/N,W+/R  && Default colors for this system
  37. SET SCOREBOARD OFF      && We use the top line of the screen
  38. SET STATUS OFF          && We don't want dBASE's status line
  39. SET ALTERNATE TO        && Closes any open alternate ouput file.
  40. SET BELL ON             && beep at the end of a field, or in valid .f. conditions.
  41. SET CARRY Off           && Don't copy previous records data during append or insert.
  42. SET CENTURY Off         && 2 digit year format.
  43. SET CLEAR ON            && Clear the screen when QUIT or SET FORMAT TO is executed.
  44. SET COLOR ON            && Colors are cool.
  45. SET CONFIRM Off         && User does not need to hit return at the end of a field.
  46. SET CONSOLE ON          && All output to screen appears on screen (off inhibits output to screen).
  47. SET DEBUG Off           && Any output from SET ECHO ON goes to screen (on goes to printer).
  48. SET DECIMALS TO 2       && Use ten decimal places in math functions.
  49. SET DELETED ON          && Disallow access to any records marked DELETED.
  50. SET DELIMITERS Off      && Don't bracket fields during full screen mode.
  51. SET DEVICE TO SCREEN    && @ say output goes to screen.
  52. SET DOHISTORY Off       && Stores program file command lines to HISTORY, where using UP/DOWN arrow retrieves them.
  53. SET ESCAPE Off          && Shut off the Escape key, which causes Cancel, Ignore, Suspend.
  54. SET EXACT ON            && Require Comparisons to Be Exact?
  55. *-*set exact off           && Compare strings only till exhaustion, not completely.
  56. SET EXCLUSIVE ON        && STAND ALONE SYSTEM - LOCAL DRIVE.
  57. SET FIELDS Off          && Use all fields.
  58. SET FIXED Off           && Use decimal places as needed in numeric output.
  59. SET FORMAT TO           && Close any open format files.
  60. SET HEADING ON          && Yes, display column titles during LIST, DISPLAY, SUM and AVERAGE
  61. SET HISTORY ON          && Yes, store commands entered interactively into history.
  62. SET INTENSITY ON        && Yes, use the enhanced screen attribute for input fields.
  63. SET MEMOWIDTH TO 70     && Standard Memo Width is 70
  64. SET MENU ON             && Yes, display a navigation bar during full screen entry operation.
  65. SET PRINT Off           && Disable output to printer.  If on, output to screen goes to printer to, except for @ say out
  66. SET PRINTER TO          && All printer output to MS-DOS device PRN.
  67. SET PROCEDURE TO        && Close any open procedure files.
  68. SET SAFETY OFF          && No messages when overwriting files
  69. *-*set safety on           && Yes, warn us if a data file is going to be overwritten by a command.
  70. SET UNIQUE Off          && Yes, allow duplicate keys to occur in the index file.
  71.  
  72. * Disable the Help Key F1 with a harmless task
  73. *ON KEY = 315 SET TALK OFF
  74. * Setup the function keys.
  75. SET FUNCTION 2 TO CHR(31)   &&  [Ctrl] [PgUp] - Add Mode Command Call
  76. SET FUNCTION 3 TO CHR(30)         && CTRL-PgDn
  77. SET FUNCTION 4 TO CHR(23)+CHR(13) && CTRL-END + CR
  78. **  FUNCTION 5 TO TODAYS DATE
  79. SET FUNCTION 5 TO LEFT(DTOC(DATE()),2)+SUBSTR(DTOC(DATE()),4,2)+RIGHT(DTOC(DATE()),2)
  80. SET FUNCTION 6  TO ""
  81. SET FUNCTION 7  TO ""
  82. SET FUNCTION 8  TO ""
  83. SET FUNCTION 9  TO ""
  84. SET FUNCTION 10 TO ""
  85.  
  86. public wt,operator,ScrnFlag
  87. wt=300               &&  Seconds to time out
  88. operator='Alan'
  89. ScrnFlag=.F.         &&  Screen flag for second screen mode
  90.  
  91. CLEAR
  92. RETURN
  93. *: EOF: SET_FOX.PRG
  94.